-------------------------------------------------------------------------------------------------------------
      name:  <unnamed>
       log:  C:\Sona\Publications\articles\BJPS_France\replication_materials\portfolio_replication.log
  log type:  text
 opened on:  21 Nov 2013, 12:42:03

. 
. #delimit ;
delimiter now ;
. *     ***************************************************************** *;
. *     ***************************************************************** *;
. *       File-Name:      portfolio_replication.do                        *;
. *       Date:           August 7, 2012                                  *;
. *       Author:         SNG/JT                                          *;
. *       Purpose:        Gamson's Law Paper                              *;
. *       Input File:     portfolioGT.dta                                 *;
. *       Output File:    portfolio_replication.log                       *;
. *       Data Output:    none                                            *;
. *       Previous file:  regional_analyses9.do                           *;
. *       Machine:        PSU Dell laptop                                 *;
. *     ****************************************************************  *;
. *     ****************************************************************  *;
. set mem 400m;

Current memory allocation

                    current                                 memory usage
    settable          value     description                 (1M = 1024k)
    --------------------------------------------------------------------
    set maxvar         5000     max. variables allowed           1.947M
    set memory          400M    max. data space                400.000M
    set matsize         400     max. RHS vars in models          1.254M
                                                            -----------
                                                               403.201M

. *     ***************************************************************** *;
. *      Change path (below) as appropriate                               *;
. *     ***************************************************************** *;
. * use "C:\Sona\France\portfolioGT.dta", clear;
. use "C:\Sona\Publications\articles\BJPS_France\replication_materials\portfolioGT.dta", clear;

. *     ****************************************************************  *;
. *       Produce basic graph for Figure 1.  Note that "portfolioshare"   *;
. *       was "ppunwtd" and "seatshare" was "ptyprop" in the original     *;
. *       Warwick and Druckman (2006) data, which is what is used here    *;
. *       to create this figure                                           *;
. *     ****************************************************************  *;
. gen y=(_n-1)/10;

. gen x=(_n-1)/10;

. graph twoway  scatter portfolioshare seatshare  if name!="Regions_France", msymbol(oh) mcolor(gray) msize(1
> .5) 
>     || lfit portfolioshare seatshare if name!="Regions_France", clpattern(shortdash) clcolor(black) 
>     || line  y x if y<1.1 & x<1.1, legend(off) clcolor(black) clwidth(0.5) scheme(s1mono);

.     *     ****************************************************************  *;
. *      Produce results for Models 1-8, Table 1                          *;
. *     ****************************************************************  *;
. keep if france==1;
(749 observations deleted)

. *     ****************************************************************  *;
. *       Party Size Hypothesis (Models 1-4)                              *;
. *     ****************************************************************  *;
. regress portfolioshare seatshare if regional==0,  vce(cluster caseno);

Linear regression                                      Number of obs =      58
                                                       F(  1,    21) =  329.28
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.8710
                                                       Root MSE      =  .09842

                                (Std. Err. adjusted for 22 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .9379085   .0516867    18.15   0.000     .8304202    1.045397
       _cons |    .023552   .0186644     1.26   0.221    -.0152629    .0623668
------------------------------------------------------------------------------

. regress portfolioshare seatshare if regional==1,  vce(cluster caseno);

Linear regression                                      Number of obs =     129
                                                       F(  1,    41) =  733.24
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.8376
                                                       Root MSE      =  .10298

                                (Std. Err. adjusted for 42 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   1.143876    .042243    27.08   0.000     1.058564    1.229187
       _cons |   .0222488   .0098459     2.26   0.029     .0023646     .042133
------------------------------------------------------------------------------

. regress portfolioshare seatshare regional seatshare_regional,  vce(cluster caseno);

Linear regression                                      Number of obs =     187
                                                       F(  3,    63) =  562.96
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.8502
                                                       Root MSE      =  .10161

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .9379085   .0508609    18.44   0.000     .8362711    1.039546
    regional |  -.0013032   .0208391    -0.06   0.950    -.0429468    .0403404
seatshare_~l |   .2059674   .0661168     3.12   0.003     .0738436    .3380912
       _cons |    .023552   .0183662     1.28   0.204    -.0131501     .060254
------------------------------------------------------------------------------

. regress portfolioshare seatshare regional seatshare_regional region2004 region2010,  vce(cluster caseno);
note: regional omitted because of collinearity

Linear regression                                      Number of obs =     187
                                                       F(  4,    63) =  266.71
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9037
                                                       Root MSE      =  .08169

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .9379085   .0510004    18.39   0.000     .8359922    1.039825
    regional |  (omitted)
seatshare_~l |   .3130702   .0714209     4.38   0.000      .170347    .4557933
  region2004 |  -.1046374   .0249078    -4.20   0.000    -.1544116   -.0548631
  region2010 |   .0463989    .022096     2.10   0.040     .0022436    .0905542
       _cons |    .023552   .0184166     1.28   0.206    -.0132508    .0603547
------------------------------------------------------------------------------

. *     ****************************************************************  *;
. *       Formateur Hypothesis (Models 5-8)                               *;
. *     ****************************************************************  *;
. regress portfolioshare seatshare formateur if regional==0,  vce(cluster caseno);

Linear regression                                      Number of obs =      58
                                                       F(  2,    21) =  226.57
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9085
                                                       Root MSE      =  .08362

                                (Std. Err. adjusted for 22 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .6473822   .0919318     7.04   0.000     .4561996    .8385648
   formateur |   .1971287   .0553198     3.56   0.002     .0820849    .3121725
       _cons |   .0657762   .0214975     3.06   0.006     .0210697    .1104826
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateur if regional==1,  vce(cluster caseno);

Linear regression                                      Number of obs =     129
                                                       F(  2,    41) =  675.13
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9332
                                                       Root MSE      =  .06629

                                (Std. Err. adjusted for 42 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .4324258   .0471151     9.18   0.000      .337275    .5275767
   formateur |   .3504805   .0251894    13.91   0.000     .2996095    .4013514
       _cons |   .0968009   .0084873    11.41   0.000     .0796606    .1139413
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateur regional regional_formateur, vce(cluster caseno);

Linear regression                                      Number of obs =     187
                                                       F(  4,    63) =  528.98
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9233
                                                       Root MSE      =  .07289

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .5433625   .0484998    11.20   0.000     .4464433    .6402816
   formateur |   .2458321   .0396073     6.21   0.000     .1666832    .3249811
    regional |  -.0073179   .0113357    -0.65   0.521    -.0299706    .0153347
regional_f~r |   .0624564   .0328435     1.90   0.062     -.003176    .1280889
       _cons |   .0884376   .0133409     6.63   0.000     .0617779    .1150974
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateur regional regional_formateur region2004 region2010, vce(cluster c
> aseno);
note: regional omitted because of collinearity

Linear regression                                      Number of obs =     187
                                                       F(  5,    63) =  380.16
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9373
                                                       Root MSE      =   .0661

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .6684237    .062169    10.75   0.000     .5441889    .7926585
   formateur |   .1872768   .0428244     4.37   0.000     .1016991    .2728546
    regional |  (omitted)
regional_f~r |   .0729782   .0320619     2.28   0.026     .0089076    .1370488
  region2004 |  -.0381499   .0100368    -3.80   0.000    -.0582068   -.0180929
  region2010 |   .0435889   .0139772     3.12   0.003     .0156577    .0715202
       _cons |   .0611921   .0158174     3.87   0.000     .0295835    .0928007
------------------------------------------------------------------------------

. *     ****************************************************************  *;
. *           Auxilary analyses                                           *;
. *     ****************************************************************  *;
. *     ****************************************************************  *;
. *       recode formateur variable to code Pompidou as independent       *;
. *       (nonpartisan), as was the case in the original Warwick and      *;
. *       Druckman (2006) dataset                                         *;
. *     ****************************************************************  *;
. gen formateurPI = formateur ;

. replace formateurPI =0 if caseno == 531 & party==17;
(1 real change made)

. replace formateurPI = 0 if caseno == 532 & party==17;
(1 real change made)

. replace formateurPI =0 if caseno == 533 & party==17;
(1 real change made)

. replace formateurPI =0 if caseno == 534 & party==17;
(1 real change made)

. gen regional_formateurPI =  regional * formateurPI;

. *     ****************************************************************  *;
. *       Formateur Hypothesis (auxillary Models 9-12)                    *;
. *     ****************************************************************  *;
. regress portfolioshare seatshare formateurPI if regional==0,  vce(cluster caseno);

Linear regression                                      Number of obs =      58
                                                       F(  2,    21) =  206.76
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.8793
                                                       Root MSE      =  .09607

                                (Std. Err. adjusted for 22 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .8534769   .0958101     8.91   0.000     .6542289    1.052725
 formateurPI |   .0745749   .0516676     1.44   0.164    -.0328738    .1820236
       _cons |   .0350053   .0236667     1.48   0.154    -.0142122    .0842229
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateurPI if regional==1,  vce(cluster caseno);

Linear regression                                      Number of obs =     129
                                                       F(  2,    41) =  675.13
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9332
                                                       Root MSE      =  .06629

                                (Std. Err. adjusted for 42 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .4324258   .0471151     9.18   0.000      .337275    .5275767
 formateurPI |   .3504805   .0251894    13.91   0.000     .2996095    .4013514
       _cons |   .0968009   .0084873    11.41   0.000     .0796606    .1139413
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateurPI regional regional_formateurPI, vce(cluster caseno);

Linear regression                                      Number of obs =     187
                                                       F(  4,    63) =  480.29
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9048
                                                       Root MSE      =  .08122

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .7060584   .0756552     9.33   0.000     .5548736    .8572433
 formateurPI |   .1345425   .0451268     2.98   0.004     .0443639    .2247211
    regional |  -.0162578   .0106557    -1.53   0.132    -.0375516    .0050359
regional_f~I |   .1118689   .0306643     3.65   0.001     .0505911    .1731467
       _cons |   .0743799   .0168625     4.41   0.000     .0406828     .108077
------------------------------------------------------------------------------

. regress portfolioshare seatshare formateurPI regional_formateurPI region2004 region2010, vce(cluster caseno
> );

Linear regression                                      Number of obs =     187
                                                       F(  5,    63) =  309.18
                                                       Prob > F      =  0.0000
                                                       R-squared     =  0.9267
                                                       Root MSE      =  .07148

                                (Std. Err. adjusted for 64 clusters in caseno)
------------------------------------------------------------------------------
             |               Robust
portfolios~e |      Coef.   Std. Err.      t    P>|t|     [95% Conf. Interval]
-------------+----------------------------------------------------------------
   seatshare |   .8159101   .0742158    10.99   0.000     .6676016    .9642185
 formateurPI |   .0898565   .0438849     2.05   0.045     .0021596    .1775535
regional_f~I |   .1142053   .0307443     3.71   0.000     .0527677     .175643
  region2004 |  -.0514917   .0086821    -5.93   0.000    -.0688415   -.0341418
  region2010 |   .0477423   .0144881     3.30   0.002     .0187902    .0766944
       _cons |   .0450392   .0177625     2.54   0.014     .0095436    .0805348
------------------------------------------------------------------------------

. *     ****************************************************************  *;
. *       The End                                                         *;
. *     ****************************************************************  *;
. log close;
      name:  <unnamed>
       log:  C:\Sona\Publications\articles\BJPS_France\replication_materials\portfolio_replication.log
  log type:  text
 closed on:  21 Nov 2013, 12:42:04
-------------------------------------------------------------------------------------------------------------
